home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / editor / editor1 / envgde10.lha / envGDE10 / makeguide / arexx / node.ged next >
Text File  |  1996-12-07  |  2KB  |  72 lines
  1. /* $VER: 1.1, ©1996 Dietmar Eilert. Create empty guide */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9.  
  10. if (RC ~= 0) then
  11.     exit
  12.  
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14.  
  15. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  16.  
  17. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  18.  
  19. 'REQUEST STRING TITLE="Create new page: Node title" VAR=TITLE'
  20.  
  21. if ((RC = 0) & (TITLE ~= "")) then do
  22.  
  23.     ID = upper(compress(TITLE))
  24.  
  25.     'FIX VAR=TITLE'
  26.     'FIX VAR=ID'
  27.  
  28.     'REQUEST STRING TITLE="Create new page: Node ID" OLD="' || ID || '" VAR=ID'
  29.  
  30.     if ((RC = 0) & (ID ~= 0)) then do
  31.  
  32.         'FIND NEXT STRING="@endnode" QUIET'
  33.  
  34.         if (RC ~= 0) then
  35.  
  36.             'FIND FIRST STRING="@endnode" QUIET'
  37.  
  38.         if (RESULT = "FALSE") then
  39.  
  40.             'GOTO BOTTOM'
  41.  
  42.         'GOTO EOL'
  43.         'CR'
  44.         'TEXT CR T="@node ' || ID || ' *"' || TITLE || '*""'
  45.         'CR'
  46.  
  47.         'PING SLOT=0'
  48.  
  49.         'TEXT CR T="text"'
  50.         'CR'
  51.         'TEXT T="@endnode"'
  52.  
  53.         'PONG SLOT=0'
  54.  
  55.         'REQUEST STATUS="Edit text of node *"' || TITLE || '*""'
  56.     end
  57. end
  58.  
  59. /* ---------------------------- END OF YOUR CODE --------------------- */
  60.  
  61. 'UNLOCK' /* VERY important: unlock GUI */
  62.  
  63. exit
  64.  
  65. SYNTAX:
  66.  
  67. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  68.  
  69. 'UNLOCK'
  70.  
  71. exit
  72.